﻿Imports DevExpress.XtraReports.UI

Public Class FormLapTesKesehatan
    Inherits PageTemplate

    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        Dim rep As New XtraReport
        Dim ds As New DataSet                
        LoadJoinKesehatanSiswa(ds, "*", "")
        'BaseMain.LoadPreviewReportKesehatan(ds, Me.Name, Me.TitleHead)
    End Sub

    Private Sub LoadJoinKesehatanSiswa(ByRef ds As DataSet, ByVal exQuery As String, ByVal exKriteria As String)
        Dim strQuery As String()
        Dim err As String = ""
        Dim dt As New DataTable
        strQuery = New String() {exQuery, "vlapkesehatansiswa", "nis", exKriteria}
        If exKriteria = "" Then
            If Utils.executeSP("proc_searchall", strQuery, dt) Then
                ds.Tables.Add(dt)
                ds.Tables(0).TableName = "vlapkesehatansiswa"
            End If
        Else
            If Utils.executeSP("proc_searchallEqual", strQuery, dt) Then
                ds.Tables.Add(dt)
                ds.Tables(0).TableName = "vlapkesehatansiswa"
            End If
        End If
    End Sub

    Private Sub FormLapTesKesehatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SimpleButton1_Click(sender, e)
    End Sub
End Class
